Visual Basic para Aplicaciones - Problema aplicar un texto a una tabla

Hola estoy realizando con la interfze de Access pero con el editor de visual basic unas instrucciones veran estoy haciendo que agrege el registro de texto pero me encuentro con un problema de que me guarda el valor o sea el texto y no el numero si me lo guarda pero el valor entero.

Set MySet5 = New ADODB.Recordset

MySet5.CursorLocation = adUseClient
MySet5.Open "SELECT * FROM [Prestamos Personales movimientos agrupados]", MyDb, adOpenKeyset, adLockOptimistic
MySet5.AddNew
MySet5.Fields("Forma de pago") = InputBox("FORMA DE PAGO(1.EFECTIVO, 2.DEPOSITO A BANCOS)")
MySet5.Update
MySet5.Close

Solo me falta decir aqui si es 1 o 2 me los cambie por el texto que le corresponde