İnput Box Boş Olmasın

Merhaba Arkadaşlar,

Yaptığım Bir Çalışmada InputBox Kullandım. Benim Sorunum;

InputBox Boş Olduğu Zaman Tamam Butonuna Tıklanmasın, Ve İptal Butonun Kaldırmak İstiyorum. Acaba Bunlar Mümkünmü?

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ad As String
If ad = InputBox("Adınızı girin", "Bilgiler", "") Then
MsgBox("Bilgi Giriniz")
End
Else
MsgBox("Bilgi Girildi")
End If

End Sub

bu şekil olur ancak ok veya iptal butonu kaldırılmıyor benim bildiğim