[RESOLVED] How to seperate this value?

I have textbox and 2 two combo box..

In the textbox show value like this 1/2004. How I can seperate this value and show value "1" in combo1 and "2004" in combo2?

Code:

---

Text7.Text = .Fields("Musim").Value

---

Code:

---

Dim arrString() As String
arrString = Split(Text1.Text, "/")
Combo1.Text = arrString(0)
Combo2.Text = arrString(1)

---