[ناجي إبراهيم]

السلام عليكم...

كود :

Dim MyDouble As Double

MyDouble = CDbl(Text1.Text)    // From String to Double

Text2.Text = CStr(MyDouble)    // From Double to String

و دوال التحويل هي:

CStr للتحويل إلى String.
CInt للتحويل إلى Integer.
CLng للتحويل إلى Long.
CSng للتحويل إلى Single.
CDbl للتحويل إلى Double.
CByte للتحويل إلى Byte.
CBool للتحويل إلى Boolean.
CDate للتحويل إلى Date.
CCur للتحويل إلى Currency.
CVar للتحويل إلى Variant.

نرجو الاستفادة و السلام.