Author  

Language  

Operating Systems  

Public Function DWCStripTextField(t$, St$)
'***************************************************************************
'* Usage : Removes the text upto the St$ character
'* example : Text.text = "Hello There;12345"
'* Call DWCStripTextField(Text.Text,";")
'* Will give the result of "Hello There"
'****************************************************************************
    Dim i As Long

    i = InStr(t$, St$)
    If i Then
        DWCStripTextField = Left$(t$, i - 1)
    Else
        DWCStripTextField = Trim$(t$)
    End If
End Function