'parâmetros da função HaNaString
Const UM_A_UM = -1                         'só um caracter testado
Const SO_UM = 0                            'todos os caracteres testados um a um

Private Sub Command1_Click()
  Dim strValor As String
  strValor = "99999-999"
  MsgBox Retira(strValor, "-", UM_A_UM)
End Sub

'remove caracteres de uma string
Public Function Retira(vgAlvo As String, vgOQue As String, Como As Integer) As String
  Dim x As String, k As String, i As Integer, _
      j As Integer, p As Integer                       'dimensiona
  If Como = UM_A_UM Then                               'se um a um
    x$ = ""                                            'vamos concatenar em x
    For i = 1 To Len(vgAlvo$)                          'cada caracter que
      k$ = Mid$(vgAlvo$, i, 1)                         'não estiver
      If InStr(vgOQue$, k$) = 0 Then x$ = x$ + k$      'contido na string a regirar
    Next
  Else                                                 'se não for um a um
    x$ = vgAlvo$                                       'vamos tirar

ProcuraOutro:
    p = InStr(x$, vgOQue$)                             'toda a string
    If p > 0 Then                                      'de uma só vez
      x$ = Left$(x$, p - 1) + Mid$(x$, p + Len(vgOQue$)) 'da string alvo
      GoTo ProcuraOutro
    End If
  End If
  Retira$ = x$                                           'retorna nova string
End Function