Decimaltal i textbox(Hvorfor punktum), Samt ForeColor i combobox.

Goddag.. Har lige nogle spørgsmål til VB folket :)

Jeg har denne kode til at beregne r (altså el lære) ohms lov. i, r og u.

Private Sub txt_r_result_gotfocus()
txt_r_result = Val(txt_ri.Text) / Val(txt_ru.Text)
Refresh
End Sub

Den kan dividere osv. Men decimaltal skal skrives som 2.5 og ikke det normale 2,5. Har læst mig frem til, at det har noget med amerikansk version at gøre, eller sådan noget, men en løsning har jeg ikke fundet. Hvordan klare jeg det?

En anden ting er, at den ikke kan lide 0/1, 0/2 osv. men den kan godt klare 1/0, 2/0 osv. Hvordan klare jeg den?

Hvordan kan jeg evt. få txt_r_result til at opdatere, så snart der er indtastet tal i henholdsvis txt_ri og txt_ru? Har leget lidt med de forskellige change, click osv. gotfocus er pt. den jeg synes virker bedst. Tænkte lidt på løkker, men kunne ikke lige komme på noget fornuftigt. Men nok bare mig hjerne der står stille lige nu :)

En anden ting er.. Hvordan kan jeg lave individuel farve, til hver item i en combo box?

Har prøvet sådan her:
Private Sub cbo_ring4_Click()
Select Case cbo_ring4.ListIndex
  Case 0 'Sølv
  ForeColor = &HE0E0E0
  Shape5.FillColor = &HE0E0E0
  Case 1 'Guld
  ForeColor = &H80FFFF
  Shape5.FillColor = &H80FFFF
End Select
End Sub

Teksten i combo boksen, skulle være forskellig, men det virker ikke efter hensigten, men det kan man måske ikke? Selvom jeg ikke kunne forestille mig dette.