It works fine. I added an if statement.

Vbcode
info = TextBox1.Text
' Find the Division.
Split = InStr(1, info, "/", vbTextCompare)
If Split = 1 then goto A:

And A: is down past all the other code for this. Not sure if this is the best way but it works.

Reston