[疑難] vb問題折價金額

這是我做表單，因為我是VB新手,不知道怎麼將金額和折價活用，寫成vb程式碼拜託各位教教我怎麼寫
，要是有請各位回覆吧
不然寄給我也可以

[url=" PPTestID=]mydog6699@hotmail.com.tw[/url]

Dim buy, a, b, c, d, e, pay As Integer
        buy = "Text1"
        a = Val("Text2")
        b = Val("Text3")
        c = Val("Text4")
        d = Val("Text5")
        e = Val("Text6")
        If buy > a Then
            pay = ("buy* (0.1 * c) ")
        Else
            If buy > d Then
                pay = pay - e
            Else
                pay = pay - f
            End If
        End If
        pay = "Text7"
    End Sub
End Class
哪裡有錯請幫我改正

[ 本帖最後由 waasl 於 2011-11-30 15:20 編輯 ]

感謝
找了很久。感謝分享