Фунция Instr() - VB

Private Sub Text3_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57, 8
Case 44, 46
KeyAscii = 46
If InStr(Text3.Text, ".") <> 0 Then 'не могу понять что за функция InStr()? что она делаеть ? (if я знаю!)
KeyAscii = 0
End If
Case 13
Command1.SetFocus
Case Else
KeyAscii = 0
End Select
End Sub