Prova così:

varTotImp as single
varTotImp.ToString("C")
txt1.text=varTotImp