Private Sub Command1_Click()
Print getit("0001-aaaa")
Print getit("001-aaa")
Print getit("YC0005 -dgdg")
Print getit("CW01 -776")
End Sub
Function getit(ByVal x As String) As String
getit = Trim(Split(x, "-")(0))'----------------> as this
End Function