Assuming it is a String, you may use a
Function
like the following:
Private Shared Function ChangeFirst(s As String, c As Char) As String
ChangeFirst = c + s.Substring(1)
End Function
Called, for instance, this way:
Dim s As String = "XXX"
s = ChangeFirst(s, "A"c)