The End Result is resulting in Fail

Question

Could you anyone help me know what went wrong with this code?

Sub Result()
    ActiveWorkbook.Save
    Dim stname As String
    Dim IntWord As Integer
    Dim