Dim cislo As Long

Private Sub CommandButton1_Click()
    MsgBox operator(cislo)
End Sub

Private Sub UserForm_Click()
Dim telefon As String
Dim delka As String

telefon = TextBox1.Text

If (Len(telefon) = 0) Or (Len(telefon) >= 12) Then
    MsgBox "Musíte vyplnit telefon ve formátu XXX XXX XXX.", vbInformation, "Chyba"
Else

If (Mid(telefon, 4, 1) = " ") Or (Mid(telefon, 8, 1) = " ") Then
    MsgBox "Telefon je zadaný ve správném tvaru: " + telefon, vbInformation, "Telefon"

    cislo = telefon
Else
    MsgBox "Musíte vyplnit telefon ve formátu XXX XXX XXX.", vbInformation, "Chyba"
End If
End If
End Sub

'### FUNKCE OPERATOR ###'

Dim cislo As Long

Private Sub CommandButton1_Click()
    MsgBox operator(cislo)
End Sub

Private Sub UserForm_Click()
Dim telefon As String
Dim delka As String

telefon = TextBox1.Text

If (Len(telefon) = 0) Or (Len(telefon) >= 12) Then
    MsgBox "Musíte vyplnit telefon ve formátu XXX XXX XXX.", vbInformation, "Chyba"
Else

If (Mid(telefon, 4, 1) = " ") Or (Mid(telefon, 8, 1) = " ") Then
    MsgBox "Telefon je zadaný ve správném tvaru: " + telefon, vbInformation, "Telefon"

    cislo = telefon
Else
    MsgBox "Musíte vyplnit telefon ve formátu XXX XXX XXX.", vbInformation, "Chyba"
End If
End If
End Sub