Dim my_num_st As String
Dim my_con_single As Single
Dim dec_sep as String
dec_sep = Application.International(xlDecimalSeparator)
my_num_st = "0.8"
my_num_st = replace(my_num_st,".",dec_sep)
my_con_single = CSng(my_num_st)

MsgBox (my_con_single)

--
Regrards,
Tom Ogilvy


"iamrajy" wrote in
message ...

I am facing problem in making code compatible with countries other than
united states

If locale is US :- The value of string variable assigned to Single
variable correctly

Dim my_num_st As String
Dim my_con_single As Single

my_num_st = "0.8"
my_con_single = CSng(my_num_st)

MsgBox (my_con_single) :- Display 0.8 (Correct)


If locale is Europe :- The value of string variable not assigned to
Single variable correctly

Dim my_num_st As String
Dim my_con_single As Single

my_num_st = "0.8"
my_con_single = CSng(my_num_st)

MsgBox (my_con_single) :- Display 8 (Incorrect)

Please help....


--
iamrajy
------------------------------------------------------------------------
iamrajy's Profile:
http://www.excelforum.com/member.php...o&userid=28117
View this thread: http://www.excelforum.com/showthread...hreadid=476872