Dim i As Integer
    'Buscas la posición del guión
    i = InStr(1, Text1.Text, "-", vbTextCompare)
    'Cortas la cadena hasta antes del guión
    Text1.Text = Left(Text1.Text, i - 1)

dim j as long
dim X as long 

x = Len(text1.text)

for j = x to 1 step -1 ' vamos del último caracter hasta el 1o
     if mid (text1.text, j,1) = "-" then
           'Encotro el gión
            text1.text = left(text1.text, j-1)
            exit for
      end if
next j