Como trabalhar com o vba no excel - sub rotinas prontas

Private Sub CBok_Click()

'checar dados do UserForm
'produto
If CBProduto.Text = "" Then
MsgBox "Escolha o produto", vbCritical, "Alerta"
CBProduto.SetFocus
Exit Sub
End If

'Configurações
If CBTamanho.Text = "" Or CBProcessador.Text = "" Or CBMemoria.Text = "" Or CBArmazenamento.Text = "" Or CBTeclado.Text = "" Then
MsgBox "Escolha todas as Configurações", vbCritical, "Alerta"
CBProduto.SetFocus
Exit Sub
End If

'Opcionais
If CBiwork.Value = False And CBaperture = False And CBlogicexp.Value = False And CBfinalcut.Value = False And CBfilemaker.Value = False And CBoffice.Value = False Then MsgBox "Não deseja escolher nenhum dos opcionais?", vbYesNo, "Question" If MsgBox("Não deseja escolher nenhum dos opcionais?", vbYesNo, "Question") = vbYes Then CBProduto.SetFocus Exit Sub End If
End If

'Informações do Cliente
If TBnome.Text = "" Then MsgBox "Entre o nome do cliente", vbCritical, "Alerta" TBnome.SetFocus Exit Sub
End If

'ACHAR LINHA RELATORIO

Sheets("Relatório de Vendas").Select

If Range("B4") = "" Then ' se B4 está vazio,o banco estará vazio linha = 2 Else Range("B2").Select Selection.End(xlDown).Select ' CTRL + seta para baixo linha = ActiveCell.Row + 1
End If 'CADASTRAR AS INFORMAÇÕES Cells(linha, 1) = linha - 3 'numero da compra Cells(linha, 2) = Date 'data da compra Cells(linha, 3) = CBProduto.Text 'produto Cells(linha, 4) = CBTamanho.Text 'tamanho tela Cells(linha, 5) = CBProcessador.Text 'proc Cells(linha, 6) = CBMemoria.Text 'memoria Cells(linha, 7) = CBArmazenamento 'arm Cells(linha, 8) = CBTeclado.Text 'teclado If OBiworkone = True Then Cells(linha, 10) = "Sim" Else Cells(linha, 10) = "Não" End If Cells(linha, 28) = desconto ' desconto

'forma de pagamento If OBdinheiro = True Then