Visual Basic - Reemplazar el primer caracter

como podria reemplazar el primer caracter de una cadena de texto por otro...
ejemplo
textdata= "xiprograma"
ahora lo q qiero es reemplzar la X por M...
como lo haria en VB???

y como seria si fuera el ultimooooooo

reemplazar el primer caracter
texdata = Replace(texdata, Left(texdata, 1), "m")

reemplazar el ultimoooooooo
texdata = Left(texdata, Len(texdata) - 1) & "m"