Private Sub Command6_Click()
Select Case Screen.ActiveControl.Name

                 Case "myTextBox"
                 
If IsNull(Me.myTextBox.Value) Then
Me.myTextBox.Value = 5
Else
txtVal = Me.myTextBox.Value
newTxtVal = txtVal & 5
Me.myTextBox.Value = newTxtVal
End If
                      
                 Case "Text0"

If IsNull(Me.Text0.Value) Then
Me.Text0.Value = 5
Else
txtVal = Me.Text0.Value
newTxtVal = txtVal & 5
Me.Text0.Value = newTxtVal
End If
                 Case Else
                       MsgBox "Ovde nema funkcija"
           End Select
End Sub