Public Function AppVer() As String
    AppVer = StrTr(App.Major) & "." & StrTr(App.Minor) & StrTr(App.Revision)
End Function

Public Function StrTr(InVariable) As String
    StrTr = Trim$(Str$(InVariable))
End Function