risolto da solo, come al solito lanciare un tread mi stimola a trovare la soluzione
codice:
ls_Str000 = String$(prml_NumChar, prms_FormatChar)

ls_Str000 = String$(CInt(prml_NumChar - Len(prms_Input)) , prms_FormatChar)
et voila'