ник: akkorn
Я делал проще.
Сначала всегда узнавал текущее состояние разделителя. Дальше форматировал все числа от пользователя в соответствии с представлениями системы, дабы получались верные результаты. Далее, нужно при помощи replace менять значение не правильное, на правильное. и затем работать с ним.. 
Можно так, как я:
Option Explicit
Private Sub Command1_Click()
Dim DelimiterCurr As String, DelimiterNotCorrect As String
DelimiterCurr = Right(Left(CSng(1 / 2), 2), 1)
If DelimiterCurr = "." Then DelimiterNotCorrect = "," Else DelimiterNotCorrect = "."
MsgBox "Ok: " & vbTab & DelimiterCurr & vbCrLf & "nOk: " & vbTab & DelimiterNotCorrect
End Sub
|
Можно вовсе при помощи API узнавать..
Если же задача рассматривается с точки хрения Excel, то можно и оттуда считать разделитель верный.