Visual Basic - eliminar caracter de string

Public Function EliminarString(Cadena As String, aEliminar As String)

    Dim Posicion As Long

    Dim Longitud As Long

    Dim Derecha As String

    Derecha = Cadena

    Longitud = Len(aEliminar)

    Posicion = InStr(1, Derecha, aEliminar)

    If Posicion = 0 Then

        EliminarString = Cadena

    Else

        While Not Posicion = 0

            EliminarString = EliminarString & Left(Derecha, Posicion - 1)

            Derecha = Mid(Derecha, Posicion + Longitud + 1)

            Posicion = InStr(1, Derecha, aEliminar)

        Wend

    End If

End Function

Dim sValor as string

Dim sVariable as string

sVariable = "A07B-DE32"

sValor = Replace(sVariable , "-", "")     'Reemplaza el "-" por un caracter vacío. Vale lo mismo para cualquier caracter.