{"id":67,"date":"2018-10-29T22:52:49","date_gmt":"2018-10-29T22:52:49","guid":{"rendered":"http:\/\/www.vbastring.com\/blog\/?p=67"},"modified":"2020-11-23T22:21:05","modified_gmt":"2020-11-23T22:21:05","slug":"vba-mid","status":"publish","type":"post","link":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/","title":{"rendered":"VBA Mid"},"content":{"rendered":"<p>This is a text and video example of how to write a VBA Mid function:<\/p>\n<p>********************************************************************<\/p>\n<pre class=\"lang:default decode:true \" >Public Sub GetMiddleName() \r\n\r\n      Dim strMiddleName As String \r\n\r\n      strMiddleName = Range(\"A2\") \r\n\r\n      strMiddleName = Mid(strMiddleName, 9, 3) \r\n\r\n      Range(\"C2\") = strMiddleName \r\n\r\nEnd Sub\t\r\n\r\n'THE SECOND ARGUMENT OF THE VBA MID FUNCTION \r\n'IS OPTIONAL\r\n'SO YOU DON'T HAVE TO USE IT IF YOU DON'T WANT TO...\r\n'THE FOLLOWING EXAMPLE EXCLUDES THE USE OF THE \r\n'THIRD ARGUMENT... \r\n\r\nPublic Sub GetLast4() \r\n\r\n      Dim strTempText As String \r\n\r\n      strTempText = Range(\"A1\") \r\n\r\n      strTempText = Mid(strTempText, 7) \r\n\r\n      Range(\"B1\") = strTempText \r\n\r\nEnd Sub <\/pre>\n<p>*****************************************************************<\/p>\n<p>Now watch how it&#8217;s done&#8230;<\/p>\n<p><iframe loading=\"lazy\" title=\"YouTube video player\" width=\"480\" height=\"390\" src=\"http:\/\/www.youtube.com\/embed\/UspqR0g4XyU\" frameborder=\"0\" allowfullscreen><\/iframe><br \/>\nLet me know if you have any questions<\/p>\n<p>[simple_contact_form]\t\t<\/p>\n<p>****************************************************<\/p>\n<table border=\"1\" width=\"100%\">\n<tr>\n<td align=\"middle\">\n<div class=\"AW-Form-1094354588\"><\/div>\n<p><script type=\"text\/javascript\">(function(d, s, id) {\n    var js, fjs = d.getElementsByTagName(s)[0];\n    if (d.getElementById(id)) return;\n    js = d.createElement(s); js.id = id;\n    js.src = \"\/\/forms.aweber.com\/form\/88\/1094354588.js\";\n    fjs.parentNode.insertBefore(js, fjs);\n    }(document, \"script\", \"aweber-wjs-kkrwj13ov\"));\n<\/script>\n<\/td>\n<\/tr>\n<\/table>\n","protected":false},"excerpt":{"rendered":"<p>This is a text and video example of how to write a VBA Mid function: ******************************************************************** Public Sub GetMiddleName() Dim strMiddleName As String strMiddleName = Range(&#8220;A2&#8221;) strMiddleName = Mid(strMiddleName, 9, 3) Range(&#8220;C2&#8221;) = strMiddleName End Sub &#8216;THE SECOND ARGUMENT OF THE VBA MID FUNCTION &#8216;IS OPTIONAL &#8216;SO YOU DON&#8217;T HAVE TO USE IT IF YOU [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"nf_dc_page":"","om_disable_all_campaigns":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":""},"categories":[],"tags":[],"class_list":["post-67","post","type-post","status-publish","format-standard","hentry"],"yoast_head":"<!-- This site is optimized with the Yoast SEO plugin v27.4 - https:\/\/yoast.com\/product\/yoast-seo-wordpress\/ -->\n<title>VBA Mid - My Blog<\/title>\n<meta name=\"robots\" content=\"index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1\" \/>\n<link rel=\"canonical\" href=\"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/\" \/>\n<meta property=\"og:locale\" content=\"en_US\" \/>\n<meta property=\"og:type\" content=\"article\" \/>\n<meta property=\"og:title\" content=\"VBA Mid - My Blog\" \/>\n<meta property=\"og:description\" content=\"This is a text and video example of how to write a VBA Mid function: ******************************************************************** Public Sub GetMiddleName() Dim strMiddleName As String strMiddleName = Range(&quot;A2&quot;) strMiddleName = Mid(strMiddleName, 9, 3) Range(&quot;C2&quot;) = strMiddleName End Sub &#039;THE SECOND ARGUMENT OF THE VBA MID FUNCTION &#039;IS OPTIONAL &#039;SO YOU DON&#039;T HAVE TO USE IT IF YOU [&hellip;]\" \/>\n<meta property=\"og:url\" content=\"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/\" \/>\n<meta property=\"og:site_name\" content=\"My Blog\" \/>\n<meta property=\"article:published_time\" content=\"2018-10-29T22:52:49+00:00\" \/>\n<meta property=\"article:modified_time\" content=\"2020-11-23T22:21:05+00:00\" \/>\n<meta name=\"author\" content=\"admin\" \/>\n<meta name=\"twitter:card\" content=\"summary_large_image\" \/>\n<meta name=\"twitter:label1\" content=\"Written by\" \/>\n\t<meta name=\"twitter:data1\" content=\"admin\" \/>\n<script type=\"application\/ld+json\" class=\"yoast-schema-graph\">{\"@context\":\"https:\\\/\\\/schema.org\",\"@graph\":[{\"@type\":\"Article\",\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/#article\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/\"},\"author\":{\"name\":\"admin\",\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/#\\\/schema\\\/person\\\/e1de0b30e98940381697872449c341f5\"},\"headline\":\"VBA Mid\",\"datePublished\":\"2018-10-29T22:52:49+00:00\",\"dateModified\":\"2020-11-23T22:21:05+00:00\",\"mainEntityOfPage\":{\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/\"},\"wordCount\":34,\"inLanguage\":\"en-US\"},{\"@type\":\"WebPage\",\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/\",\"url\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/\",\"name\":\"VBA Mid - My Blog\",\"isPartOf\":{\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/#website\"},\"datePublished\":\"2018-10-29T22:52:49+00:00\",\"dateModified\":\"2020-11-23T22:21:05+00:00\",\"author\":{\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/#\\\/schema\\\/person\\\/e1de0b30e98940381697872449c341f5\"},\"breadcrumb\":{\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/#breadcrumb\"},\"inLanguage\":\"en-US\",\"potentialAction\":[{\"@type\":\"ReadAction\",\"target\":[\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/\"]}]},{\"@type\":\"BreadcrumbList\",\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/2018\\\/10\\\/29\\\/vba-mid\\\/#breadcrumb\",\"itemListElement\":[{\"@type\":\"ListItem\",\"position\":1,\"name\":\"Home\",\"item\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/\"},{\"@type\":\"ListItem\",\"position\":2,\"name\":\"VBA Mid\"}]},{\"@type\":\"WebSite\",\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/#website\",\"url\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/\",\"name\":\"My Blog\",\"description\":\"My WordPress Blog\",\"potentialAction\":[{\"@type\":\"SearchAction\",\"target\":{\"@type\":\"EntryPoint\",\"urlTemplate\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/?s={search_term_string}\"},\"query-input\":{\"@type\":\"PropertyValueSpecification\",\"valueRequired\":true,\"valueName\":\"search_term_string\"}}],\"inLanguage\":\"en-US\"},{\"@type\":\"Person\",\"@id\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/#\\\/schema\\\/person\\\/e1de0b30e98940381697872449c341f5\",\"name\":\"admin\",\"image\":{\"@type\":\"ImageObject\",\"inLanguage\":\"en-US\",\"@id\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/b2feaa698a4bd91b409df1beb5ff6acc2d7842d4f78543d413ebd468bc0171af?s=96&d=mm&r=g\",\"url\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/b2feaa698a4bd91b409df1beb5ff6acc2d7842d4f78543d413ebd468bc0171af?s=96&d=mm&r=g\",\"contentUrl\":\"https:\\\/\\\/secure.gravatar.com\\\/avatar\\\/b2feaa698a4bd91b409df1beb5ff6acc2d7842d4f78543d413ebd468bc0171af?s=96&d=mm&r=g\",\"caption\":\"admin\"},\"sameAs\":[\"https:\\\/\\\/vbastring.com\\\/blog\"],\"url\":\"https:\\\/\\\/vbastring.com\\\/blog\\\/author\\\/admin\\\/\"}]}<\/script>\n<!-- \/ Yoast SEO plugin. -->","yoast_head_json":{"title":"VBA Mid - My Blog","robots":{"index":"index","follow":"follow","max-snippet":"max-snippet:-1","max-image-preview":"max-image-preview:large","max-video-preview":"max-video-preview:-1"},"canonical":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/","og_locale":"en_US","og_type":"article","og_title":"VBA Mid - My Blog","og_description":"This is a text and video example of how to write a VBA Mid function: ******************************************************************** Public Sub GetMiddleName() Dim strMiddleName As String strMiddleName = Range(\"A2\") strMiddleName = Mid(strMiddleName, 9, 3) Range(\"C2\") = strMiddleName End Sub 'THE SECOND ARGUMENT OF THE VBA MID FUNCTION 'IS OPTIONAL 'SO YOU DON'T HAVE TO USE IT IF YOU [&hellip;]","og_url":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/","og_site_name":"My Blog","article_published_time":"2018-10-29T22:52:49+00:00","article_modified_time":"2020-11-23T22:21:05+00:00","author":"admin","twitter_card":"summary_large_image","twitter_misc":{"Written by":"admin"},"schema":{"@context":"https:\/\/schema.org","@graph":[{"@type":"Article","@id":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/#article","isPartOf":{"@id":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/"},"author":{"name":"admin","@id":"https:\/\/vbastring.com\/blog\/#\/schema\/person\/e1de0b30e98940381697872449c341f5"},"headline":"VBA Mid","datePublished":"2018-10-29T22:52:49+00:00","dateModified":"2020-11-23T22:21:05+00:00","mainEntityOfPage":{"@id":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/"},"wordCount":34,"inLanguage":"en-US"},{"@type":"WebPage","@id":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/","url":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/","name":"VBA Mid - My Blog","isPartOf":{"@id":"https:\/\/vbastring.com\/blog\/#website"},"datePublished":"2018-10-29T22:52:49+00:00","dateModified":"2020-11-23T22:21:05+00:00","author":{"@id":"https:\/\/vbastring.com\/blog\/#\/schema\/person\/e1de0b30e98940381697872449c341f5"},"breadcrumb":{"@id":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/#breadcrumb"},"inLanguage":"en-US","potentialAction":[{"@type":"ReadAction","target":["https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/"]}]},{"@type":"BreadcrumbList","@id":"https:\/\/vbastring.com\/blog\/2018\/10\/29\/vba-mid\/#breadcrumb","itemListElement":[{"@type":"ListItem","position":1,"name":"Home","item":"https:\/\/vbastring.com\/blog\/"},{"@type":"ListItem","position":2,"name":"VBA Mid"}]},{"@type":"WebSite","@id":"https:\/\/vbastring.com\/blog\/#website","url":"https:\/\/vbastring.com\/blog\/","name":"My Blog","description":"My WordPress Blog","potentialAction":[{"@type":"SearchAction","target":{"@type":"EntryPoint","urlTemplate":"https:\/\/vbastring.com\/blog\/?s={search_term_string}"},"query-input":{"@type":"PropertyValueSpecification","valueRequired":true,"valueName":"search_term_string"}}],"inLanguage":"en-US"},{"@type":"Person","@id":"https:\/\/vbastring.com\/blog\/#\/schema\/person\/e1de0b30e98940381697872449c341f5","name":"admin","image":{"@type":"ImageObject","inLanguage":"en-US","@id":"https:\/\/secure.gravatar.com\/avatar\/b2feaa698a4bd91b409df1beb5ff6acc2d7842d4f78543d413ebd468bc0171af?s=96&d=mm&r=g","url":"https:\/\/secure.gravatar.com\/avatar\/b2feaa698a4bd91b409df1beb5ff6acc2d7842d4f78543d413ebd468bc0171af?s=96&d=mm&r=g","contentUrl":"https:\/\/secure.gravatar.com\/avatar\/b2feaa698a4bd91b409df1beb5ff6acc2d7842d4f78543d413ebd468bc0171af?s=96&d=mm&r=g","caption":"admin"},"sameAs":["https:\/\/vbastring.com\/blog"],"url":"https:\/\/vbastring.com\/blog\/author\/admin\/"}]}},"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/posts\/67","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/comments?post=67"}],"version-history":[{"count":2,"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/posts\/67\/revisions"}],"predecessor-version":[{"id":526,"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/posts\/67\/revisions\/526"}],"wp:attachment":[{"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/media?parent=67"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/categories?post=67"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/vbastring.com\/blog\/wp-json\/wp\/v2\/tags?post=67"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}