مشکل با InpuBox

[SeyedMoosavi]

سلام
به ضمیمه نگاه کنید
من وقتی که Cansel می کنم InputBox رو مقدار خالی بر میگردونه نمی خوام مقدار خالی برگردونه آقا می خوام وقتی Cansel می کنم هیچی نشه چیکار کنم؟:عصبانی++:

[.:KeihanCPU:.]

این کد رو استفاده کن


If a="" then
Try again
end if

[H4i0 ACP]

سلام

Private Sub Command1_Click()

a = InputBox("Enter Name :", "Warning", Text1.Text)
If a <> "" Then
Text1.Text = a
End If
End Sub

[DoctorJay]

این کدا مشابه کدای بقیه دوستان جواب میده :


newdetail = InputBox("Inter New Detail : ", "Notice", Text1.Text)

If newdetail = Empty Then newdetail = Text1.Text

Text1.Text = newdetail