VB equivilent for Java snippet

[PeachRL]

Can anyone show me the VB equivilent for the following Java snippet??

var checkOK = "0123456789-()-";
var checkStr = theForm.Phone3.value;
var allValid = true;
for (i = 0; i < checkStr.length; i++)
{
ch = checkStr.charAt(i);
for (j = 0; j < checkOK.length; j++)
if (ch == checkOK.charAt(j))
break;
if (j == checkOK.length)
{
allValid = false;
break;
}
}
if (!allValid)
{
alert(&quot;Please enter only digit and \&quot;()-\&quot; characters in the \&quot;Phone3\&quot; field.&quot;
theForm.Phone3.focus();
return (false);
}
Any help welcomed!