Gerçi sayın Puletin gerekli cevabı vermiş, ama alternatif olması açısından ben bu gibi durumlarda çok başvurduğum Split fonksiyonlu bir örnek veriyorum
Kod:
Dim Metin As String
Metin = "30x50-Tek kanat"
MsgBox Split(Metin, "-")(0)
MsgBox Split(Metin, "-")(1)