String Functions VisualBasic Script

Sub CompareStrings()
    Dim strString1 As String
    Dim strString2 As String
    
    strString1 = "Microsoft"
    
    If strString1 Like "Micr*" Then
    Debug.Print "True"
    End If
    
    If strString1 Like "Mic*t" Then
    Debug.Print "True"
    End If
    
End Sub