Remover caracter

Dim x As String = "casa-arbol"
x = x.Remove(4, 1)

x  = "casaarbol"