[Resolvido]Deletar a partir de um caracter especial

Olá amigos,

Tenho uma tabela do acess com varias contas de fornecedores, porem todas elas estão no formato: xxxx - x
queria tirar o digito verificador do final e o hifen tambem..
então seria tipo uma função pra deletar a partir do hifen, incluindo ele.

como faço pra fazer isso?

obrigado!!!!!!

eu consegui de um jeito aqui...
queria saber como faço pra deletar a partir de um caracter qualquer...
no caso desse ae.. se eu tivesse um hifen, deletaria a partir dele, mas consegui de uma forma mais simples, SÓ porque o hifen vinha sempre na mesma posição

dai fiz assim oh:

Sub testeee()

Dim db As Database
Dim tabela As Recordset

Set db = CurrentDb
Set tabela = db.OpenRecordset("TB_Contratos")

Do While Not tabela.EOF

checar:

If IsNull(tabela!Conta) Then
tabela.MoveNext
GoTo checar
End If

tamanho = Len(tabela!Conta) - 2

On Error Resume Next
tabela.Edit
tabela!teste = Left(tabela!Conta, tamanho)


tabela.Update

tabela.MoveNext
Loop


End Sub

Ola bom dia amigo;

Partindo do principio que a sua tabela tem o nome de TB_Contratos e o campo em questão tem o nome de Conta, esta função deleta tudo o que estiver à direita do hifen;

Function ApagaTudoAdireitaDoIfen()
'By JPaulo Maximo Access
'deleta tudo o que encontrar à direita do hifen
Dim RS As Recordset
Dim texto As String, hifenIndex As Integer

Set RS = CurrentDb.OpenRecordset("TB_Contratos")
If RS.RecordCount = 0 Then Exit Function

RS.MoveFirst

Do While Not RS.EOF

RS.Edit
texto = RS.Fields("Conta")
hifenIndex = InStrRev(texto, "-", , vbTextCompare)
If hifenIndex >= 1 Then
RS.Fields("Conta") = Left(texto, hifenIndex - 1)
End If
RS.Update
RS.MoveNext
Loop
RS.Close
End Function

Perfeito JPaulo!!
funcionou certinho cara...
muito obrigado!

Valew pelo retorno amigo.

Precisando de novo dê um grito.