Private Sub txtPos_Change(Index As Integer)
 
Dim i As Byte
 
For i = 0 To 5
    If InStr(1, txtPos(i).Text, ";", vbTextCompare) <> 0 Then
        MsgBox "The use of the character ';' is not allowed." & vbCrLf & _
          "Please remove the charakter and try to save again.", vbCritical, "An" & _
          "error has occured"
 
        Exit Sub
    End If
Next i
 
End Sub