Independientemente de lo anterior, VB tiene una función (Pmt) que
Devuelve un tipoDouble que indica el pago de una anualidad basada en pagos periódicos constantes con un tipo de interés también constante. (sic)
Todo ese código lo puedes poner en una sola línea así:
Pago = Format(Abs(-Pmt(TipoInteres / 12, NumMeses, Prestamo)), "Fixed") 