Sub Parse(url)
url=ValidateURL(url)
urlType=StrIndexOf(url,":",0)
'Msgbox(url & " = " & urltype)
If urlType=-1 OR urlType=5 Then
url=ValidateURL(url)
CheckWikiFile(url)
HtmStr=ReadWikiFile(url)
'Msgbox(HtmStr)
addHistory(url)
currentpage=url
textbox1.Text=HtmStr
Refreshweb
Else
url=StrReplace(url,"%2F","/")
Shell(url)
End If
End Sub