Module Module1
    Sub main()
        Dim user1 = Console.ReadLine()
        Dim maeMoji = CheckKaibun(user1)
        Dim reCheck = CheckKaibun(maeMoji)

        Dim result As String = "No"
        If "" <> reCheck Then result = "Yes"

        Console.WriteLine(result)
    End Sub

    ' 回分ならばその要素となる文字列を返す
    Function CheckKaibun(ByVal str As String) As String
        Dim maeMoji = Mid(str, 1, Math.Floor(str.Length / 2))
        Dim atoMoji = Mid(str, Math.Floor(str.Length / 2) + 2)

        If maeMoji = atoMoji Then
            Return maeMoji
        End If
        Return ""
    End Function
  end module