Version Checking Subroutine

Private Sub UserForm_Initialize()
'INITIALIZE FORM
    'VERSION CODE
    currentv = "5.00"
    Call CKV(currentv)
End Sub




Private Sub CKV(var1)
'FUNCTION TO DETERMINE IS USER HAS LATEST VERSION OF XLA


    On Error Resume Next    'JUST IN CASE NO NETWORK DRIVE


    Dim bypass As Label
    Dim ToolPath2 As String
    Dim tversion As String
    Dim newversion As String
    Dim CKV2 As Integer


    Select Case var1
    Case Is = ""
        CKV2 = 0
        GoTo bypass
    Case Is <> ""
        'DO NOTHING
    End Select


    'SET BASIC PATH
    ToolPath2 = "C:\" 'BASE PATH GOES HERE
    tversion = "versionlwp.vi" 'TEXT FILE WITH VI EXTENSION TO HOLD MOST CURRENT VERSION NUMBER ON FIRST LINE


    'OPEN FILE AND CHECK VERSION
    FileNumber2 = FreeFile
    On Error Resume Next
    Open ToolPath2 & tversion For Input As #FileNumber2


    'READ FILE LINE 1
    Line Input #FileNumber2, newversion
    On Error GoTo 0
    Close #FileNumber


    'COMPARE
    Select Case newversion
    Case Is = var1
        CKV2 = 0
    Case Is <> var1
        CKV2 = 1
    End Select


    'MESSAGE USER
    Select Case CKV2
    Case Is = 1
        'USER MESSAGE
        With frmYourFormName
            .tb_status.Value = newversion & " Available-Update your Macro"
            .tb_status.BackColor = &HC0FFFF


        End With


    Case Is = 0
        With frmYourFormName
            .tb_status.Value = currentv & " Version is current."
        End With
    End Select


bypass:


End Sub