Visual Basic - Cuestion sobre cadenas en Visual BAsic

Buenas, tengo un problemilla, intento concatenar dos cadenas , pero no me las une y no se porque todo es a traves de un campode texto con un evento keypress, el codigo es el siguiente:

Private Sub TextR_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
Debug.Print "tamos aki"
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
nuevo = Str(Val(Chr(KeyAscii)))
valor = valor & nuevo
Debug.Print "Valor=", valor
TxtPreview.BackColor = RGB(Val(valor), Val(valor), Val(valor))
Color = TxtPreview.BackColor
If Val(valor) > 255 Then
TextR.Text = ""
TextR.Text = "255"
End If
Case Else
Debug.Print "invalido"
MsgBox "You has Choose a invalid value"
End Select
End Sub

Espero que me puedan ayudar muchas gracias

Private Sub TextR_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 8
Debug.Print "tamos aki"
Case 48, 49, 50, 51, 52, 53, 54, 55, 56, 57
nuevo = Str(Val(Chr(KeyAscii)))

Aqui esta tu error
-----------------------
valor = valor & nuevo
Debug.Print "Valor=", valor

cambialo por esta línea

TextR.Text = TextR.Text & nuevo
Debug.Print "Valor=", TextR.Text