Public Function SplitT(Metin As String, Ayrac As String, Sayi As Integer)
    SplitT = Split(Metin, Ayrac)(Sayi)
End Function

Private Sub Komut75_Click()
a = SplitT(Me.Metin1, "-", 0)
b = SplitT(Me.Metin1, "-", 1)
c = SplitT(Me.Metin1, "-", 2)
d = SplitT(Me.Metin1, "-", 3)
end sub
buna benzer birşey yapmaya çalışıyorum
bunda isim sayısı 4 ten eksik olursa hata veriyor 
yani bir isim varsa sadece a=birinci isim diğerleri ise boş olacak
iki isim varsa a= ilk isim b= ikinci isim ve diğerleri boş olacak
inşallah anlatabilmişimdir 
teşekkür ederim