محاسبه عملیات ضرب داخل تکست باکس

[samiasoft]

سلام دوستان

من حدود 10 تا تکس باکس در برنامم دارم بطوری که در داخل همه ان ها 2 عدد بصورت زیر نوشته شده است :
5 * 4 یا 6 *7 یا...
یعنی دو عدد بصورت ضربدر در کنارهم قرار گرفته.
برای محاسبه آن به نظرتون کدوم راه بهتره؟:متفکر:

[setroyd]

کامل تر توضیح بده تک رقمی یا امکان داره 2 رقم هم بشه مثلا 20*8 میخای مقدار هر تکست جدا حساب بشه ؟

[setroyd]

تا جایی که میشد برات ساده نوشتم دیگه ازین ساده تر شک دارم باشه ! هر عددی هم باشه محاسبه میشه اگه منظورت رو درست فهمیده باشم همینو میخای

Private Function hesabgar(ByVal Text As TextBox) As Long
Dim a() As String
a = Split(Text.Text, "*")
hesabgar = a(0) * a(1)
End Function

Private Sub Command1_Click()
Me.Caption = hesabgar(Text1)
End Sub