Private Sub Form_Click() Dim i As Integer,c As Integer,k As Integer k = 4 Label1.Caption = "" For i = 1 To Len(Text1.Text) c = Asc(Mid(Text1.Text,i,1)) + k If c > Asc("z") Or c > Asc("Z") And c < Asc("a") + k Then c = c - 26 Label1.Caption = Label1.Caption & Chr(c) Next End Sub