Public Sub DzielLancuch()
Dim strPobrany As String
Dim varPodzielony As Variant 'to będzie tablica
strPobrany = "20/01/05 - 21/03/05"
varPodzielony = Split(strPobrany, " - ")
MsgBox varPodzielony(0)'tylko informacja jak został podzielony
MsgBox varPodzielony(1)
End Sub
Powodzenia |