hai provato con:
Dim pagato As string ?