Sub skrotNazwy()
    Dim nazwa As String
    Dim skrot As String
    Dim wyrazy() As String
    nazwa = InputBox("Podaj nazwę instytucji:")
    wyrazy = Split(nazwa)
    For i = 0 To UBound(wyrazy)
    skrot = skrot & UCase(Left(wyrazy(i), 1))
    wyrazy(i) = StrConv(wyrazy(i), vbProperCase)
    Next i
    nazwa = Join(wyrazy, " ")
    MsgBox (skrot & " - " & nazwa)
End Sub

Sub szyfrowanie()
    Dim slowo As String
    slowo = "szyfrowanie"

    Dim slowo2 As String
    Dim slowo3 As String

    For Counter = 1 To Len(slowo)
        If Counter Mod 2 = 0 Then
           slowo2 = slowo2 & Mid(slowo, Counter, 1)
        Else
           slowo3 = slowo3 & Mid(slowo, Counter, 1)
        End If
    Next


    MsgBox (slowo2 & slowo3)
    MsgBox (slowo3 & slowo2)
End Sub
Sub zad3()
    Dim ileLiczb As Integer
    Dim liczby() As Double
    ileLiczb = InputBox("Ile liczb chcesz podać?")
    ReDim liczby(ileLiczb)

    'Tutaj se dodajesz do tablicy po kolei np. liczby(1) = 123, liczby(2) = 345, liczby(3) = 111'
    For i = 1 To ileLiczb
        liczby(i) = InputBox("Podaj liczbe nr - " & i)
    Next i

    'A tutaj lecisz w dół od np (Przykładowo! 3) liczby(3) = 111, liczby(2) = 345, liczby(1) = 123'

    Dim odwrotnaKolejnosc As String

    For i = UBound(liczby) To 1 Step -1
        odwrotnaKolejnosc = odwrotnaKolejnosc & " " & liczby(i)
    Next i

    MsgBox (odwrotnaKolejnosc)

End Sub
Sub zad5()

    Dim czyPoprawne As Boolean
    Dim imeNazwisko As String
    imieNazwisko = "k.aaaa"

    czyPoprawne = True


    Dim dlugoscNazwiska As Integer
    dlugoscNazwiska = 0

    For Counter = 1 To Len(imieNazwisko)
        If Counter = 2 And Mid(imieNazwisko, Counter, 1) <> "." Then
            czyPoprawne = False
        End If

        If Counter > 4 Then
            dlugoscNazwiska = dlugoscNazwiska + 1
        End If

    Next

    If dlugoscNazwiska < 4 Then
        czyPoprawne = False
    End If

    If czyPoprawne Then
        MsgBox ("Poprawne " & imieNazwisko)
    Else
        MsgBox ("Niepoprawne " & imieNazwisko)
    End If
End Sub

Function wybranaOpcja(i As Integer) As Integer
        MsgBox ("Poprawneeee " & i)

        Dim wybranaOpcja As Integer
        wybranaOpcja = zad5()
End Function
Function wybierzOpcje() As Integer
    Dim wybor As Integer
    wybor = InputBox("Którą opcje wybierasz? 1.Szyfrowanie 2.Skrót Nazwy 3.Odwrotna kolejność 4.Unikalne wartości 5.Identyfikator")

    wybranaOpcja (wybór)
End Function

Private Sub START_Click()

End Sub