Userform Error Check and Textbox Help

Roy,


I define OpenText with a function I had written in a different module as follows:

Function OpenText() As Boolean

Dim OpenFile As Variant

MsgBox"Please select a text file",vbOKonly
OpenFile=Application.GetOpenFilename("Textfiles (*.txt),*.txt", ,"Open a textfile...")

      If OpenFile <> False Then
              
                 ' Code specific that excel import the tab delimited tab with spaces

      OpenText=True
      End If

End Function

This function has always seemed to work in the past but it seems to be having trouble running with the error check for the user form. Any help is greatly appreciated.