m_shpakov

Чуть изменил код, вот файлик
Скорее всего как и сказали выше неправильно названы контролы на форме или сама форма

Private Sub Check_Click()
    Dim cost, quantity, summ, made, total As Double
    
    cost = Val(UserForm1.tCost.Text)
    quantity = Val(UserForm1.tQuantity.Text)
    made = Val(UserForm1.tMade.Text)
    
    summ = cost * quantity
    UserForm1.lSum.Caption = Str(summ)
    
    total = made - summ
    UserForm1.lTotal.Caption = Str(total)
End Sub

str[0] например вас не устраивает?

Хм... синглплеерная игра, требующая доступа к интернету? Тут я вуныжден апелировать к опыту Ubisoft`а. Какая-то из частей Assassin's Creed (если не ошибаюсь вторая) требовала постоянного соединения с серверами убисофта.
Защиту обошли через месяц (просто сделали свой "серв"), а вот у тех, кто купил лицензию "Бомбило" долго, ибо короткий обрыв инета приводил к плохим последствиям и они в итоге убрали эту защиту.