Private Sub FillMenu()
    Dim sFileName As String
    Dim lFile As Long
    Dim sLine As String
    Dim sMenuText As String
    Dim lCount As Long
    
    '  Change the filename below to your filename:
    sFileName = "c:\pathto\yourfile.txt"
    
    '  Get a safe file handle.
    lFile = FreeFile
    '  Initialize the menu index counter.
    lCount = -1
    
    '  Open the input file.
    Open sFileName For Input As #lFile
    
    '  Read every line in the file.
    Do While Not EOF(lFile)
        Line Input #lFile, sLine
        If Not Len(sLine) = 0 Then
            '  Process lines that aren't blank and contain the
            '    target text (Name=).
            If InStr(sLine, "Name=") Then
                '  Parse out the menu text.
                sMenuText = Mid$(sLine, InStr(sLine, "=") + 1)
                '  Remove beginning and ending double quotes if present.
                If Left$(sMenuText, 1) = """" Then
                    sMenuText = Mid$(sMenuText, 2)
                End If
                If Right$(sMenuText, 1) = """" Then
                    sMenuText = Mid$(sMenuText, 1, Len(sMenuText) - 1)
                End If
                '  Increment the menu index counter.
                lCount = lCount + 1
                '  Create a new menu item (only create if this
                '    isn't element zero, which already exists).
                If Not lCount = 0 Then
                    Load mnuNames(lCount)
                End If
                '  Populate and make the new element visible.
                mnuNames(lCount).Caption = sMenuText
                mnuNames(lCount).Visible = True
            End If
        End If
    Loop
    
    '  Close the input file.
    Close #lFile
    
End Sub

Private Sub mnuNames_Click(Index As Integer)
    Dim caption As String
    Dim sFile As String
    Dim lFile As String
    Dim line As String
    
    caption = mnuNames(Index).caption
    sFile = "C:\Documents and Settings\mike\Desktop\messages.txt"
    lFile = FreeFile
    
    Open sFile For Input As #lFile
    
    Do While Not EOF(lFile)
        Line Input #lFile, line
        If Not Len(line) = 0 Then
            '  Process lines that aren't blank and contain the
            '    target text.
            If InStr(line, caption) Then
                
                IMClient.LocalState = MSTATE_AWAY
            End If
        End If
    Loop
    
    '  Close the input file.
    Close #lFile
End Sub