Private Sub Command1_Click() If Len(Text1.Text) > 9 Then MsgBox " For mange tegn, maks.9" End If If Not IsNumeric(Left(Text1.Text, 2)) Or Not IsNumeric(Mid(Text1.Text, 4, 4)) Then MsgBox " Kun tal og - i de første 8 tegn" End If If Mid(Text1.Text, 3, 1) <> "-" Or Mid(Text1.Text, 8, 1) <> "-" Then MsgBox " Kun - i tegn 3 og 8" End If End Sub
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.