Might try:
Public Sub UserConBox(ByVal sMsg As String)
Dim jScript As String = "if(confirm('" + sMsg + "')) { alert('confirmed'); } else { alert('not confirmed'); }"
ScriptManager.RegisterStartupScript(Me.Page, Me.GetType(), "onclick", jScript, True)
End Sub