Visual Basic - Formato en Caja de Texto

Buenos dias si alguien me puede ayudar con esto necesito dar formato alfanumerico a un numero de identificacion fiscal RIF (Registro de Información Fiscal) el cual esta compuesto por algo asi J-00000000-0 si es persona juridica o V-00000000-0 si es persona natural venezolana o E-00000000-0 si es persona natural extranjera pero noencuentro dar el formato para que me tome la primera letra.

TxtRIF.Text = Format((TxtRif.Text), "########-#") cual es el caracter que me representa letra para indicarlos en la mascar ade entrada?

bueno limitate a que la primera letra sea V, E, J en el Kekpress del textbox correspondiente colocarias asi...

If Len(Me.txtNombre.Text) < 1 Then
Select Case KeyAscii
Case 69
Case 74
Case 86
Case 101
KeyAscii = KeyAscii - 32
Case 106
KeyAscii = KeyAscii - 32
Case 118
KeyAscii = KeyAscii - 32
Case 8 ' BS
Case Else
KeyAscii = 0
End Select
End If

Bueno asi lo pondria yo!!!