delete from textbox

[chees]

Maybe you could do:

Private Sub Command1_Click()
    Dim strTempArray() As String
    Dim strTemp As String
    Dim intFreeFileNum As Integer
    Dim intCounter As Integer
    
    intFreeFileNum = FreeFile()
    
    strTempArray = Split(Text1.Text, " ")
    
    Text2.Text = strTempArray(0)
    
    Open "\filenamehere.txt" For Input As intFreeFileNum
        Do Until EOF(intFreeFileNum)
            Input #intFreeFileNum, strTemp
            
            strTempArray = Split(strTemp, " ")
            
            For intCounter = 1 To UBound(strTempArray)
                If LCase(Text2.Text) = LCase(strTempArray(intCounter)) Then
                    Text2.Text = "*" + Text2.Text
                End If
            Next intCounter
        Loop
    Close intFreeFileNum
 
End Sub

I think that does what you want to do without needing API.