Sub Test1() 
    Text = Left(Range("A3"), 1)
    Range("C3").Value = Text
    Text2 = Left(Range("A3"), 2)
    Range("C4").Value = Text2
    Text3 = Left(Range("A3"), 3)
    Range("C5").Value = Text3
    
    Text4 = Mid(Range("A3"), 2, 3)
    Range("C7").Value = Text4
    Text5 = Mid(Range("A3"), 2, 4)
    Range("C8").Value = Text5
    Text6 = Mid(Range("A3"), 2, 5)
    Range("C9").Value = Text6
    
    Text7 = Right(Range("A3"), 1)
    Range("C11").Value = Text7
    Text8 = Right(Range("A3"), 2)
    Range("C12").Value = Text8
    Text9 = Right(Range("A3"), 3)
    Range("C13").Value = Text9
End Sub