Private Shared FileName As String = String.Empty Private Shared Version As Integer = 0 Public Shared Sub GenerateVersion() Version += 1 FileName &= "(" & Version.ToString & ")" End Sub