Reemplazar los 4 ultimas palabras

hola
podrias hacer

Dim cadena As String = "HOLA1234"

Dim resultado As String = String.Format("{0}****", cadena.Substring(0,
cadena.Length - 4))

por supuesto en ese cado deberas validar que la cadena tenga mas de 4
caracteres, sino fallara

If cadena.Length > 4 Then
Dim resultado As String = String.Format("{0}****",
cadena.Substring(0, cadena.Length - 4))
End If

saludos