A ver...
Bueno, lo que comenta 'DanielRey' funciona, pero no se si te soluciona todos los casos
De todos modos, me he estado currando un ratillo el código y al fin parece que funciona. Creo que no es 'el rey de la eficiencia' pero quizas te sirva.
Suerte
<pre>cadena = "20988273-123123A "
i = 1
While (i < Len(cadena))
If (not IsNumeric(Mid(cadena,i,1))) Then
cadena = Left(cadena,i-1) & Right(cadena,(Len(cadena)-i))
i = i - 1
End If
i = i + 1
Wend
Response.Write(cadena) </pre>
Un saludillo de Reek