Kodların çalışmıyordu
sayı yani Double olmadıgı içindi,
Dim CELOYCE As Double
CELOYCE = "123"
If TextBox1.Text = CELOYCE Then
Form2.Show()
Else
Exit Sub
End If
End Sub
şeklinde çalışır
ayrıca ne yapmak istediğini tam açıklayıcı yazarsan daha hızlı cevap alırsın

Adı Soyadı:
Ce.... Ya....
Konum:
Ankara
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
Bugün,16:12
Cevapla